home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 9 / Night Owl CD-ROM (NOPV9) (Night Owl Publisher) (1993).ISO / 042a / randpass.zip / RANDPASS.PAS < prev   
Pascal/Delphi Source File  |  1993-05-25  |  537b  |  23 lines
  1. program RandomPasswordGenerator; {* By Colin Bowern *}
  2.  
  3. {* Just a random password generator *}
  4. {* for misc. use!                   *}
  5.  
  6. uses Dos, Crt;
  7.  
  8. const pwrdlen = 8;                              {* Password Length *}
  9.  
  10. var password : array[1..pwrdlen] of word;
  11. var i : integer;
  12.  
  13. begin
  14.   for i := 1 to pwrdlen do password[i] := 0;
  15.   Randomize;
  16.   for i := 1 to pwrdlen do begin
  17.     repeat
  18.       password[i] := Random(126);
  19.     until password[i] > 34
  20.   end;
  21.   for i := 1 to pwrdlen do write(chr(password[i]));
  22. end.
  23.